module examples.ForH where

-- import Data.List

main _ = print $ take 10 pyth
    where
        pyth = [ (x, y, m*m+n*n) |
                    m <- [2..], n <- [1..m-1],
                    let { x = m*m-n*n; y = 2*m*n },
                ]